home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacWorld 1996 April
/
Macworld (1996-04).dmg
/
Educational Demos
/
Encyclopedia of Nature
/
DATA
/
Shared.Dir
/
00340_Script_340
< prev
next >
Wrap
Text File
|
1995-04-13
|
454b
|
16 lines
on buttonpush buttonupC, buttondownC
set castlist = [:]
repeat with channel = 1 to 48
setaprop castlist, channel, the castnum of sprite channel
end repeat
set buttonS = getone(castlist, buttonupC)
puppetsprite buttonS, 1
set the castnum of sprite buttonS to buttondownC
updatestage
repeat while the mouseup <>1
end repeat
set the castnum of sprite buttonS to buttonupC
updatestage
puppetsprite buttonS, 0
end